BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / U-Z / ViewIt 2.24 Shareware.sit / ViewIt™ 2.24 Shareware / Pascal Demo Projects / Metrowerks Pascal 1.0d7 Demos / TutorialMP.p < prev next >

MacBinary | 1994-03-02 | 2.0 KB | [TEXT/MWPS]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

browse contents |

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Wed Mar 2 17:32:52 1994, modified Wed Mar 2 17:32:52 1994, creator 'MWPS', type ASCII, 1517 bytes "TutorialMP.p" , at 0x66d 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MWPS]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 54 75 74 6f 72 69 | 61 6c 4d 50 2e 70 00 00 |..Tutori|alMP.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 57 50 | 53 00 00 00 00 00 00 00 |.TEXTMWP|S.......|
|00000050| 00 00 00 00 00 05 ed 00 | 00 01 7e a9 9a c4 94 a9 |........|..~.....|
|00000060| 9a c4 94 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b1 3c 00 00 |........|.....<..|
|00000080| 7b 54 75 74 6f 72 69 61 | 6c 20 4d 50 20 44 65 6d |{Tutoria|l MP Dem|
|00000090| 6f 6e 73 74 72 61 74 69 | 6f 6e 20 50 72 6f 67 72 |onstrati|on Progr|
|000000a0| 61 6d 7d 0d 7b a9 46 61 | 63 65 57 61 72 65 20 31 |am}.{.Fa|ceWare 1|
|000000b0| 39 39 33 2d 39 34 2e 20 | 20 41 6c 6c 20 52 69 67 |993-94. | All Rig|
|000000c0| 68 74 73 20 52 65 73 65 | 72 76 65 64 2e 7d 0d 0d |hts Rese|rved.}..|
|000000d0| 70 72 6f 67 72 61 6d 20 | 54 75 74 6f 72 69 61 6c |program |Tutorial|
|000000e0| 4d 50 3b 0d 0d 09 75 73 | 65 73 0d 09 09 46 61 63 |MP;...us|es...Fac|
|000000f0| 65 53 74 6f 72 4d 50 2c | 20 46 61 63 65 50 72 6f |eStorMP,| FacePro|
|00000100| 63 4d 50 3b 0d 09 76 61 | 72 0d 09 09 74 68 65 46 |cMP;..va|r...theF|
|00000110| 6c 61 67 2c 20 74 68 65 | 4c 69 73 74 49 74 65 6d |lag, the|ListItem|
|00000120| 2c 20 74 68 65 4d 65 6e | 75 49 74 65 6d 3a 20 69 |, theMen|uItem: i|
|00000130| 6e 74 65 67 65 72 3b 0d | 09 09 74 68 65 53 74 72 |nteger;.|..theStr|
|00000140| 69 6e 67 3a 20 73 74 72 | 69 6e 67 5b 33 31 5d 3b |ing: str|ing[31];|
|00000150| 0d 0d 62 65 67 69 6e 0d | 09 66 52 65 63 2e 75 4e |..begin.|.fRec.uN|
|00000160| 61 6d 65 20 3a 3d 20 27 | 54 75 74 6f 72 69 61 6c |ame := '|Tutorial|
|00000170| 2e 52 73 72 63 27 3b 0d | 09 46 61 63 65 49 74 28 |.Rsrc';.|.FaceIt(|
|00000180| 6e 69 6c 2c 20 44 6f 49 | 6e 69 74 2c 20 30 2c 20 |nil, DoI|nit, 0, |
|00000190| 30 2c 20 30 2c 20 30 29 | 3b 0d 09 74 68 65 46 6c |0, 0, 0)|;..theFl|
|000001a0| 61 67 20 3a 3d 20 30 3b | 0d 09 74 68 65 4c 69 73 |ag := 0;|..theLis|
|000001b0| 74 49 74 65 6d 20 3a 3d | 20 33 3b 0d 09 74 68 65 |tItem :=| 3;..the|
|000001c0| 4d 65 6e 75 49 74 65 6d | 20 3a 3d 20 32 3b 0d 09 |MenuItem| := 2;..|
|000001d0| 74 68 65 53 74 72 69 6e | 67 20 3a 3d 20 27 48 65 |theStrin|g := 'He|
|000001e0| 6c 6c 6f 27 3b 0d 09 72 | 65 70 65 61 74 0d 09 09 |llo';..r|epeat...|
|000001f0| 46 61 63 65 49 74 28 6e | 69 6c 2c 20 44 6f 4c 6f |FaceIt(n|il, DoLo|
|00000200| 6f 70 2c 20 30 2c 20 30 | 2c 20 30 2c 20 30 29 3b |op, 0, 0|, 0, 0);|
|00000210| 0d 09 09 69 66 20 28 66 | 52 65 63 2e 75 4d 65 6e |...if (f|Rec.uMen|
|00000220| 75 49 44 20 3d 20 31 30 | 35 29 20 61 6e 64 20 28 |uID = 10|5) and (|
|00000230| 66 52 65 63 2e 75 4d 65 | 6e 75 49 74 65 6d 20 3d |fRec.uMe|nuItem =|
|00000240| 20 31 29 20 74 68 65 6e | 0d 09 09 09 62 65 67 69 | 1) then|....begi|
|00000250| 6e 0d 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |n.....Fa|ceIt(nil|
|00000260| 2c 20 4e 65 77 57 6e 64 | 2c 20 31 30 31 30 2c 20 |, NewWnd|, 1010, |
|00000270| 30 2c 20 30 2c 20 30 29 | 3b 0d 09 09 09 09 46 61 |0, 0, 0)|;.....Fa|
|00000280| 63 65 49 74 28 6e 69 6c | 2c 20 47 65 74 43 74 6c |ceIt(nil|, GetCtl|
|00000290| 2c 20 31 30 31 30 2c 20 | 30 2c 20 31 2c 20 33 29 |, 1010, |0, 1, 3)|
|000002a0| 3b 0d 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |;.....Fa|ceIt(nil|
|000002b0| 2c 20 4c 6e 6b 43 74 6c | 2c 20 6f 72 64 28 66 52 |, LnkCtl|, ord(fR|
|000002c0| 65 63 2e 63 43 6f 6e 74 | 72 6f 6c 29 2c 20 6f 72 |ec.cCont|rol), or|
|000002d0| 64 28 40 74 68 65 46 6c | 61 67 29 2c 20 32 2c 20 |d(@theFl|ag), 2, |
|000002e0| 30 29 3b 0d 09 09 09 09 | 46 61 63 65 49 74 28 6e |0);.....|FaceIt(n|
|000002f0| 69 6c 2c 20 47 65 74 43 | 74 6c 2c 20 31 30 31 30 |il, GetC|tl, 1010|
|00000300| 2c 20 30 2c 20 31 2c 20 | 34 29 3b 0d 09 09 09 09 |, 0, 1, |4);.....|
|00000310| 46 61 63 65 49 74 28 6e | 69 6c 2c 20 4c 6e 6b 43 |FaceIt(n|il, LnkC|
|00000320| 74 6c 2c 20 6f 72 64 28 | 66 52 65 63 2e 63 43 6f |tl, ord(|fRec.cCo|
|00000330| 6e 74 72 6f 6c 29 2c 20 | 6f 72 64 28 40 74 68 65 |ntrol), |ord(@the|
|00000340| 53 74 72 69 6e 67 29 2c | 20 2d 33 31 2c 20 30 29 |String),| -31, 0)|
|00000350| 3b 0d 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |;.....Fa|ceIt(nil|
|00000360| 2c 20 47 65 74 43 74 6c | 2c 20 31 30 31 30 2c 20 |, GetCtl|, 1010, |
|00000370| 30 2c 20 31 2c 20 35 29 | 3b 0d 09 09 09 09 46 61 |0, 1, 5)|;.....Fa|
|00000380| 63 65 49 74 28 6e 69 6c | 2c 20 4c 6e 6b 43 74 6c |ceIt(nil|, LnkCtl|
|00000390| 2c 20 6f 72 64 28 66 52 | 65 63 2e 63 43 6f 6e 74 |, ord(fR|ec.cCont|
|000003a0| 72 6f 6c 29 2c 20 6f 72 | 64 28 40 74 68 65 4c 69 |rol), or|d(@theLi|
|000003b0| 73 74 49 74 65 6d 29 2c | 20 32 2c 20 30 29 3b 0d |stItem),| 2, 0);.|
|000003c0| 09 09 09 09 46 61 63 65 | 49 74 28 6e 69 6c 2c 20 |....Face|It(nil, |
|000003d0| 47 65 74 43 74 6c 2c 20 | 31 30 31 30 2c 20 30 2c |GetCtl, |1010, 0,|
|000003e0| 20 31 2c 20 36 29 3b 0d | 09 09 09 09 46 61 63 65 | 1, 6);.|....Face|
|000003f0| 49 74 28 6e 69 6c 2c 20 | 4c 6e 6b 43 74 6c 2c 20 |It(nil, |LnkCtl, |
|00000400| 6f 72 64 28 66 52 65 63 | 2e 63 43 6f 6e 74 72 6f |ord(fRec|.cContro|
|00000410| 6c 29 2c 20 6f 72 64 28 | 40 74 68 65 4d 65 6e 75 |l), ord(|@theMenu|
|00000420| 49 74 65 6d 29 2c 20 32 | 2c 20 30 29 3b 0d 09 09 |Item), 2|, 0);...|
|00000430| 09 09 46 61 63 65 49 74 | 28 6e 69 6c 2c 20 53 65 |..FaceIt|(nil, Se|
|00000440| 74 56 61 6c 2c 20 31 30 | 31 30 2c 20 30 2c 20 30 |tVal, 10|10, 0, 0|
|00000450| 2c 20 30 29 3b 0d 09 09 | 09 09 72 65 70 65 61 74 |, 0);...|..repeat|
|00000460| 0d 09 09 09 09 09 46 61 | 63 65 49 74 28 6e 69 6c |......Fa|ceIt(nil|
|00000470| 2c 20 4d 64 6c 57 6e 64 | 2c 20 31 30 31 30 2c 20 |, MdlWnd|, 1010, |
|00000480| 30 2c 20 30 2c 20 30 29 | 3b 0d 09 09 09 09 09 69 |0, 0, 0)|;......i|
|00000490| 66 20 28 66 52 65 63 2e | 75 4d 65 6e 75 49 44 20 |f (fRec.|uMenuID |
|000004a0| 3d 20 31 30 31 30 29 20 | 74 68 65 6e 0d 09 09 09 |= 1010) |then....|
|000004b0| 09 09 09 69 66 20 28 66 | 52 65 63 2e 77 63 48 69 |...if (f|Rec.wcHi|
|000004c0| 74 20 3d 20 2d 31 29 20 | 74 68 65 6e 0d 09 09 09 |t = -1) |then....|
|000004d0| 09 09 09 09 6c 65 61 76 | 65 0d 09 09 09 09 09 09 |....leav|e.......|
|000004e0| 65 6c 73 65 20 69 66 20 | 28 66 52 65 63 2e 77 63 |else if |(fRec.wc|
|000004f0| 48 69 74 20 3d 20 31 29 | 20 74 68 65 6e 0d 09 09 |Hit = 1)| then...|
|00000500| 09 09 09 09 09 62 65 67 | 69 6e 0d 09 09 09 09 09 |.....beg|in......|
|00000510| 09 09 09 46 61 63 65 49 | 74 28 6e 69 6c 2c 20 47 |...FaceI|t(nil, G|
|00000520| 65 74 56 61 6c 2c 20 31 | 30 31 30 2c 20 30 2c 20 |etVal, 1|010, 0, |
|00000530| 30 2c 20 30 29 3b 0d 09 | 09 09 09 09 09 09 09 6c |0, 0);..|.......l|
|00000540| 65 61 76 65 3b 0d 09 09 | 09 09 09 09 09 65 6e 64 |eave;...|.....end|
|00000550| 0d 09 09 09 09 09 09 65 | 6c 73 65 20 69 66 20 28 |.......e|lse if (|
|00000560| 66 52 65 63 2e 77 63 48 | 69 74 20 3d 20 32 29 20 |fRec.wcH|it = 2) |
|00000570| 74 68 65 6e 0d 09 09 09 | 09 09 09 09 62 65 67 69 |then....|....begi|
|00000580| 6e 0d 09 09 09 09 09 09 | 09 09 46 61 63 65 49 74 |n.......|..FaceIt|
|00000590| 28 6e 69 6c 2c 20 47 65 | 74 43 74 6c 2c 20 31 30 |(nil, Ge|tCtl, 10|
|000005a0| 31 30 2c 20 30 2c 20 31 | 2c 20 38 29 3b 0d 09 09 |10, 0, 1|, 8);...|
|000005b0| 09 09 09 09 09 09 66 52 | 65 63 2e 75 53 74 72 69 |......fR|ec.uStri|
|000005c0| 6e 67 20 3a 3d 20 27 52 | 75 6e 20 62 75 74 74 6f |ng := 'R|un butto|
|000005d0| 6e 20 77 61 73 20 68 69 | 74 2e 27 3b 0d 09 09 09 |n was hi|t.';....|
|000005e0| 09 09 09 09 09 46 61 63 | 65 49 74 28 66 52 65 63 |.....Fac|eIt(fRec|
|000005f0| 2e 63 43 6f 6e 74 72 6f | 6c 2c 20 31 35 36 35 2c |.cContro|l, 1565,|
|00000600| 20 32 2c 20 30 2c 20 30 | 2c 20 30 29 3b 0d 09 09 | 2, 0, 0|, 0);...|
|00000610| 09 09 09 09 09 65 6e 64 | 3b 0d 09 09 09 09 75 6e |.....end|;.....un|
|00000620| 74 69 6c 20 66 61 6c 73 | 65 3b 0d 09 09 09 09 46 |til fals|e;.....F|
|00000630| 61 63 65 49 74 28 6e 69 | 6c 2c 20 45 6e 64 57 6e |aceIt(ni|l, EndWn|
|00000640| 64 2c 20 31 30 31 30 2c | 20 30 2c 20 30 2c 20 30 |d, 1010,| 0, 0, 0|
|00000650| 29 3b 0d 09 09 09 65 6e | 64 3b 0d 09 75 6e 74 69 |);....en|d;..unti|
|00000660| 6c 20 66 61 6c 73 65 3b | 0d 65 6e 64 2e 00 00 00 |l false;|.end....|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000690| 00 00 00 00 00 00 00 ff | 04 0b 0b 0b ff ff ff ac |........|........|
|000006a0| ab ac ab ac ab ac ab ac | ab ac ab ac ab ac ab ff |........|........|
|000006b0| 0c 54 75 74 6f 72 69 61 | 6c 4d 50 2e 70 37 02 00 |.Tutoria|lMP.p7..|
|000006c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000006d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000006e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006f0| 00 00 aa 02 9a 69 00 00 | 00 00 00 00 01 7e ff ab |.....i..|.....~..|
|00000700| ac ab ac ab ac ab ac ab | ac ab ac ab ac ab ac ff |........|........|
|00000710| 00 00 00 00 00 00 00 ff | 04 fd ff ff ff ff ff ac |........|........|
|00000720| ab ac ab ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000730| ff ff ff ff 00 00 00 ff | 04 0b 0b ff ff ff ff ab |........|........|
|00000740| ac ab ac ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 f5 ff 00 00 00 ff | 04 0b 0b 0b ff ff ff ac |........|........|
|00000760| ab ac ab ff 00 f5 f5 f5 | f5 f5 f5 f5 f5 f5 f5 f5 |........|........|
|00000770| f5 f5 f6 ff 00 00 00 ff | fc 0b 0b 0b ff ff ff ab |........|........|
|00000780| 00 00 00 48 00 09 47 65 | 6e 65 76 61 00 00 00 00 |...H..Ge|neva....|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 03 | 00 02 00 28 00 0a 01 39 |........|...(...9|
|000007b0| 01 5d 00 28 00 0a 01 39 | 01 5d a9 ce e6 ed 00 00 |.].(...9|.]......|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000007d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 cd fc ec |...L...L|...2....|
|000007e0| 0c 7e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.~.....2|..MPSR..|
|000007f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+